ミディアムＦＯＲＴＨ　Ｍ−ＦＯＲＴＨ／ＭＺ ――――――――――――――――――――――――――――――――――――――― Ｉ／Ｏ　１９８１年　３月号掲載 ＭＺ−８０ マシン語　０１２００Ｈ−０２６４ＦＨ　Ｓ：０１２００Ｈ 起動方法 モニタからロード コールド・スタート　０１２００Ｈ ウォーム・スタート　０１２６８Ｈ 　　　　　　　　　　０１９２５Ｈ（テキストディタから起動） ――――――――――――――――――――――――――――――――――――――― ＦＯＲＴＨは１９６９年頃、 チャールズ・Ｈ・ムーア氏によって考案された言語で、 氏自らで設立したＦＯＲＴＨ社で扱われているものです （なお、ＦＯＲＴＨはＦＯＲＴＨ社の登録商標です） こにの言語はＢＡＳＩＣ、ＦＯＲＴＲＡＮなどと比較したとき 非常にユニークな特徴を持っています。 その特徴としては、 (１)自己増殖型の言語であること。 　　あるプログラムを作ったとき、 　　それはＦＯＲＴＨであらかじめ準備されたワード（語）と 　　まったく同等なものとなり、 　　プログラミングはＦＯＲＴＨの機能を拡張することになる。 (２)ルーチンのデータの受け渡しにスタックが使用されること。 　　このため、代入文がなく、演算が逆ポーランド型式で記述される。 　　この逆ポーランド型式の記述は日本語の表現によく合うもので、 　　たとえば、１＋２は逆ポーランド型式では 　　１　２＋（１に２を加える）と書かれる 　　（１＋２は『１たす２』というが、 　　　これは本来の日本語では不自然なものである）。 (３)プログラミングは対話型式で実行され、構造化プログラミングが可能である。 (４)再帰的手続きを記述できる。 (５)オブジェクト構造が単純で、インタープリタが小さい。 (６)きめ細かい操作が記述できる。 などがあります。 この他、本来のＦＯＲＴＨはアセンブラ内蔵などの特徴がありますが、 Ｍ−ＦＯＲＴＨ　Ｖ１．１ではアセンブラは作っていません。 Ｍ−ＦＯＲＴＨ　Ｖ１．１はＭＺ−８０本体のみで 使用できるように機能を制限し、 また、擬似グラフィック機能が 充分活用できるような機能を追加して 作成されたものです。 ・−−−−−−−−−−−−−−−−−・ ｜■■■必■要■機■器■構■成■■■｜ ・−−−−−−−−−−−−−−−−−・ ＭＺ−80本体　メモリ20Ｋバイト以上、モニタはＳＰ−1002。 Ｍ−ＦＯＲＴＨ　１本、カウンタ３０からＤＥＭＯが入っています。 ＴＸＴ[CR]　⇒　Ｌ[CR]　⇒　Ｆ[CR]　⇒　！[CR]　⇒　ＤＥＭＯ[CR] (ﾃｷｽﾄ･ﾓｰﾄﾞへ)　　(ﾛｰﾄﾞ) 　(ｺﾝﾊﾟｲﾙ) 　　(ﾒｲﾝへ)　　　(DEMOを実行) ・−−−−−−−−−−−−−−−−−・ ｜■■■■■■使■用■法■■■■■■｜ ・−−−−−−−−−−−−−−−−−・ １）モニタでカセットからロードします。 　　・―――――――――――――――――・ 　　｜　＊ＬＯＡＤ　　　　　　　　　　　｜ 　　・―――――――――――――――――・ 　　ロードが完了すると次の表示が出ます。 　　・――――――――――――――――――――――・ 　　｜■MIDIAM FORTH V1.1 ■ MEM=hhhh1,hhhh2　　　｜ 　　｜＃■←(カーソル)　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――――・ 　　ここで、hhhh1 はリターン・スタックのBOTTOMアドレスで、 　　メモリの実装量から８Ｋバイト小さい値が表示されます 　　（48ＫではAFFF、32Ｋでは6FFFＦ、20Ｋでは3FFFです）。 　　hhhh2 はデータ・スタックのBOTTOMアドレスで、 　　リターン・スタックのBOTTOMと辞書の最後との中間点に設定されます。 ２）＃プロンプトの後に（＃プロンプトはなくてもよい）、 　　ＦＯＲＴＨのワード、または定数を空白（スペース）を 　　区切り文字に使って入力します（ＣＲではない）。 ・−−−−−−−−−−−−−−−−−・ ｜■■■■■メモリ・マップ■■■■■｜ ・−−−−−−−−−−−−−−−−−・ １）ＰＥは＄1506、ＤＳは＄150E、ＳＰは＄1512、 　　ＶＶＲは＄1514からの２バイトに各々のアドレスが入っています。 　　ＤＳ、ＳＰは語ＬＩＭＩＴで変更します。 　　ＶＶＲ（＄１５１４）を変えて、 　　仮想Ｖ−ＲＡＭの位置を変更することもできます。 ２）スタート・アドレス ●コールド・スタート＄1200 　ＤＳ、ＳＰ、ＶＶＲが使用法の１）で示したように初期化されます。 　ソース・テキストは消滅しますが、辞書（オブジェクト）は変化しません。 ●ウォーム・スタート＄1268　 　リターン・スタックだけがクリアされた状態からスタートします。 　データ・スタック、ソース・テキストなどは変化しません。 ●ウォーム・スタート＄1925 　テキスト・エディタから起動します。 　１２００→・――――――――――・ 　　　　　　｜（メイン）　　　　　｜ 　　　　　　｜　インタープリタ　　｜ 　１５Ｂ９→｜――――――――――｜ 　　　　　　｜乗除算、グラフィック｜ 　　　　　　｜CORDICサブルーチン　｜ 　１９２５→｜――――――――――｜ 　　　　　　｜　　テキスト・　　　｜ 　　　　　　｜　　　エディタ　　　｜ 　１ＣＤＡ→｜――――――――――｜ 　　　　　　｜　　　　　　　　　　｜ 　　　　　　｜　　　　辞書　　　　｜ 　　　　　　｜　　　　　　　　　　｜ 　ＰＥ　　→｜――――――――――｜ 　　　　　　｜　　↓　辞書拡張　　｜ 　　　　　　｜　　　　　　　　　　｜ 　　　　　　｜　　　　データ・　　｜ 　　　　　　｜　　↑　スタック　　｜ 　ＤＳ　　→｜――――――――――｜ 　　　　　　｜　　↓文字ストリング｜ 　　　　　　｜　　　・エリア　　　｜ 　　　　　　｜　　　　　　　　　　｜ 　　　　　　｜　　　リターン・　　｜ 　　　　　　｜　　↑　スタック　　｜ 　ＳＰ　　→｜――――――――――｜ 　　　　　　｜■■↓■■■■■■■｜ 　　　　　　｜■■■■■■■■■■｜ 　　　　　　｜■ソース・テキスト■｜ 　ＶＶＲ　→｜――――――――――｜ 　　　　　　｜　　仮想ＶＲＡＭ　　｜｝１Ｋバイト 　　　　　　・――――――――――・ ・−−−−−−−−−−−−−−−−−・ ｜■■■■■サブルーチン■■■■■■｜ ・−−−−−−−−−−−−−−−−−・ ・−−−−−−−−−−−−−−−−−−−−−−−−−−・ ｜ｻﾌﾞﾙｰﾁﾝ 名｜ｱﾄﾞﾚｽ ｜　　　　　機　　　　能　　　　　｜ ｜−−−−−＋−−−＋−−−−−−−−−−−−−−−−｜ ｜MULT　　　｜$160F ｜乗算：DEＸBC→HLDE（符号なし　　｜ ｜　　　　　｜　　　｜　　　16ﾋﾞｯﾄ×16ﾋﾞｯﾄ→32ﾋﾞｯﾄ）　｜ ｜DIV0　 ｜$15FA ｜除算　HLDE÷BC(商)、HL（余り）　｜ ｜　　　　　｜　　　｜　　　（符号なし）　　　　　　　｜ ｜CODR 　 ｜$1820 ｜CORDIC回転モード補正付き　　　　｜ ｜　　　　　｜　　　｜（x→BC、ｙ→DE、ｚ＝HL） 　　　｜ ｜CODV 　 ｜$188D ｜CORDICﾍﾞｸﾄﾙ･モード補正付き　　　｜ ｌ　　　　　｜　　　｜（x→BC、ｙ→DE、ｚ＝HL） 　　　｜ ｜SETGS 　｜$1654 ｜擬似ｸﾞﾗﾌｨｯｸSETｻﾌﾞﾙｰﾁﾝ 　　　　　｜ ｜RESGS 　｜$1670 ｜　　〃　　RESET　〃 　　　　　　｜ ｜LINESB 　｜$16F6 ｜　　〃　　LINE 　〃 　　　　　　｜ ・−−−−−−−−−−−−−−−−−−−−−−−−−−・ ・−−−−−−−−−−−−−−−−−・ ｜M-FORTH で入力できる文字列の種類■｜ ・−−−−−−−−−−−−−−−−−・ ・―ワード（語）：ＦＯＲＴＨの辞書に登録された手続きなどの名前 ｜　　　　　　　　（名前の文字数は７９字まで） ｜ ｜　　　　　　　　・―（±）　ｎ…ｎ：変数、BASEの値に基づく進法表現 ｜　　　・―数定数｜　（±）＄ｎ…ｎ：16進数 ｜　　　｜　　　　・―（±）＃ｎ…ｎ：10進数 ・―定数｜　　 　　　　｜ 　　　　・―文字定数”××××”　××××は１文字以上 数字は10進で-32,768〜+32,767までの整数が扱えます。 ・−−−−−−−−−−−−−−−−−・ ｜■■■Ｍ−ＦＯＲＴＨの構造■■■■｜ ・−−−−−−−−−−−−−−−−−・ 　１）辞書の構造　　　　　　　２）ワードの構造 　　・―――――――・　　　　　・――――――――――・ 　　｜　＄ＦＦＦＦ　｜　　　　　｜ポインタ（２バイト）｜ 　　｜―――――――｜　　　　　｜名前の文字数（１Ｂ）｜ 　　｜::ポインタ::::｜＼　　　　｜--------------------｜ 　　｜--------------｜　｜　　　｜　　　　　　　　　　｜ 　　｜ワードの名前　｜　｜　　　｜　　　　　　　　　　｜ 　　｜--------------｜　｜ﾜｰﾄﾞ　｜ワードの名前（不定）｜ 　　｜　　　　　　　｜　｜　　　｜　　　　　　　　　　｜ 　　｜ワードの定義　｜　｜　　　｜　　　　　　　　　　｜ 　　｜　　　　　　　｜　｜　　　｜――――――――――｜ 　　｜―――――――｜／　　　　｜ワードの属性（１）　｜ 　　｜::ポインタ::::｜＼　　　　｜--------------------｜ 　　｜--------------｜　｜　　　｜　　　　　　　　　　｜ 　　｜　　　　　　　｜　｜ﾜｰﾄﾞ　｜　ワードの定義内容　｜ 　　＝　　　　　　　＝　｜　　　｜　　　　　　　　　　｜ 　　｜　　　　　　　｜　｜　　　・――――――――――・ 　　｜―――――――｜／ 　　｜::ポインタ::::｜＼ 　　｜--------------｜　｜ﾜｰﾄﾞ 　　｜　　　　　　　｜　｜ 　　｜　　　　　　　｜／ 　　｜―――――――｜　 　　｜::ポインタ::::｜　 ・→・―――――――・ ｜　　　　＄１５０６ ｜　・―――――――・ ・―｜　　　　　　　｜ 　　・―――――――・ ３）データ・スタック 　｜　　　　　｜　　　　　　　例）[ABS DUP0 　　｜ F0 ｜if 2nd>TOP then -1 → TOP else 0 → STOP ｜ ｜ ｜ ｜ ｜ 例）2 2 >：TOPは0 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜CORDR ｜ F0 ｜3rd：x、2nd：y、TOP：ｚ　とするとき ｜ ｜座｜　　 　｜　　｜x ｃｏｓ　z - y sin z →2nd, x sin z + y cos z- ｜ ｜標｜　　 　｜　　｜　→　TOP（xの単位は0.5°） ｜ ｜回｜　　 　｜　　｜例）1000 0 60 CORDR：2ndは866（10000cos30°）、 ｜ ｜転｜ 　　　｜　　｜TOPは500（1000sin30°） ｜ ｜・｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜倫｜CORDV ｜ F0 ｜ﾙｰﾄx^2+y^2 →2nd、x+tan^-1 y/x→TOP ｜ ｜理｜　　 　｜　　｜ （x（3rd）≧0であること） ｜ ｜演｜　　　 ｜　　｜例）866 500 0 CORDV ｜ ｜算｜　　 　｜　　｜ ：2ndは1000（ﾙｰﾄ866^2+500^2、TOPは60（30°）｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜STK ｜ F0 ｜ｽﾀｯｸの内容をTOPからBOTTOMまで。出力形式で表示する ｜ ｜　｜　 ｜　　｜（TOP＝１、2nd＝２、3rd＝３、4th＝４、5th＝５まで ｜ ｜　｜ ｜　　｜ ｽﾀｯｸに入っているときのｽﾀｯｸの変化を ｜ ｜　｜ ｜　　｜ 以下では例とする）。 ｜ ｜ス｜ ｜　　｜STKを実行したとき1 2 3 4 5が表示される。 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜タ｜CLR 　｜ F6 ｜ｽﾀｯｸを空にする。 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜ッ｜DUP ｜ F0 ｜TOPを複製する。 1 1 2 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜ク｜DDUP ｜ F0 ｜TOP、2ndを複製する。 1 2 1 2 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜操｜OVER ｜ F0 ｜2ndを複製する。　　　　 2 1 2 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜作｜2OVER ｜ F0 ｜3rdを複製する。　　　　 3 1 2 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜3OVER ｜ F0 ｜4thを複製する。　　　　 4 1 2 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜SWAP ｜ F0 ｜TOPと2ndを交換する。 2 1 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜DROP ｜ F0 ｜TOPを取り去る。　　　　 2 3 4 5 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜ROT ｜ F6 ｜ｽﾀｯｸのBOTTOMをTOPに移す。 5 1 2 3 4 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜@ ｜ F0 ｜TOPの値をﾒﾓﾘのｱﾄﾞﾚｽとしてﾒﾓﾘの内容2ﾊﾞｲﾄを ｜ ｜　｜ ｜　　｜TOPに入れる。 ｜ ｜　｜ ｜ ｜例）$1000 @：TOPには($1001),($1000)の ｜ ｜　｜ ｜　　｜ 2ﾊﾞｲﾄの内容が入る。｜ ｜メ｜　　　 　｜　　｜ A @：Ａが変数のとき、変数の内容がTOPに入る。 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜モ｜@B 　｜ F0 ｜＠の転送内容を1ﾊﾞｲﾄにしたもの内容は ｜ ｜　｜ ｜　　｜　　　 　下位ﾊﾞｲﾄに入る上位ﾊﾞｲﾄは０(PEEK)。｜ ｜リ｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜! ｜ F0 ｜TOPの値をメモリのｱﾄﾞﾚｽとして2ndの内容２ﾊﾞｲﾄに移す。 ｜ ｜・｜ 　　｜　　｜例）$1234 $1000 !：$34→($1000)、$12→($1001) ｜ ｜　｜　 　｜　　｜　　$1234 a !：Ａを変数とするとき$1234をＡに入れる。｜ ｜ア｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜!B ｜ F0 ｜！の転送内容を2ndの下位１ﾊﾞｲﾄにしたもの。 ｜ ｜ク｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜MV+ ｜ F0 ｜（3rd）から（2nd）へ（TOP）ﾊﾞｲﾄ、 ｜ ｜セ｜ ｜　　｜ｱﾄﾞﾚｽをｶｳﾝﾄ・ｱｯﾌﾟして転送する。 ｜ ｜　｜　 　｜　　｜例）$1000 $D000 $100 MV+ ｜ ｜ス｜ ｜　　｜ ：（$1000〜$10FF）→（$D000〜$D0FF）｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜MV- ｜ F0 ｜（3rd）から（2nd）へ（TOP）ﾊﾞｲﾄ、 ｜ ｜　｜ ｜　　｜ｱﾄﾞﾚｽをｶｳﾝﾄ・ﾀﾞｳﾝして転送する。 ｜ ｜　｜ 　 　｜　　｜例）$10FF $D0FF $100 MV- ｜ ｜　｜ ｜　　｜ ：（$10FF〜$1000）→（$D0FF〜$D000）｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜IF ｜ F6 ｜IF(TOP≠0のときの処理)ELSE (TOP=0のときの処理)THEN ｜ ｜制｜〜(ELSE) ｜　　｜例）0>IF "PLUS" ELSE "NOT PLUS" THEN S. ｜ ｜御｜ ｜　　｜ ：TOPが正のときPLUS、 　　　　　｜ ｜　｜ ｜　　｜ 　正でないときNOT PLUSを表示する。｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜直｜F.IF ｜ F6 ｜F.IF (TOP=0のときの処理) ELSE (TOP=0のときの処理) ｜ ｜接｜〜(ELSE〜)｜　　｜ THEN ｜ ｜実｜THEN ｜　　｜例）0=F.IF "NOT ZERO" S.THEN ｜ ｜行｜ ｜　　｜ ：TOPが0でないときNOT ZEROを表示する。｜ ｜は｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜で｜DO〜LOOP ｜ F6 ｜DO実行時の2ndを終値、TOPを初期として ｜ ｜き｜ ｜　　｜LOOPでｶｳﾝﾀを+1して、結果が終値より小さければ ｜ ｜な｜ ｜　　｜DOの次に戻り、終値以上であればLOOPの次に進む。 ｜ ｜い｜　　　　　｜　　｜例）10 0 DO I . LOOP ｜ ｜の｜ ｜　　｜ ：ｶｳﾝﾀを0〜9まで変化させて『I.』を繰り返し実行する｜ ｜で｜　　　　　｜　　｜　 　(0123456789が表示される)。｜ ｜［｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜の｜BEGIN〜 ｜ F6 ｜END実行時のTOPが0なら、BEGINの次に戻り、 ｜ ｜中｜ ｜　　｜0でなければENDの次に進む。 ｜ ｜で｜END ｜　　｜例）BEGIN GETKY END：キーが何か押されるまで待つ。 ｜ ｜使｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜用｜I ｜ F6 ｜DO〜LOOPの中で使用し、ｶｳﾝﾀの値をTOPに積む。 ｜ ｜す｜　　　　　｜　　｜例）10 0 DO I . LOOP ｜ ｜る｜　　　　　｜　　｜　　10 0 DO BEGIN I . GETKY END LOOP ｜ ｜　｜ ｜　　｜：これは誤りである(IがBEGIN〜ENDの中で使われている)｡｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜J ｜ F6 ｜DO〜LOOP中で使用し、終値の値をTOPに積む。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜SETG ｜ F0 ｜2nd：x, TOP ｜ ｜　｜ ｜　　｜：yの位置にドットを表示する（0≦x≦79,0≦y≦49）。 ｜ ｜　｜　　　　　｜　　｜例）40 24 SETG ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜グ｜RESG　　　｜ F0 ｜2nd：x,TOP：yの位置のドットを消す ｜ ｜　｜ ｜　　｜ （0≦x≦79,0≦y≦49)。｜ ｜ラ｜　　　　　｜　　｜例）40 24 RESG ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜フ｜LINE ｜ F0 ｜4th：x1,3rd：y1と2nd：x2,TOP：y2を線(ﾄﾞｯﾄ)で結ぶ。 ｜ ｜　｜　　　　　｜　　｜例）0 0 79 49 LINE： ｜ ｜ィ｜ ｜　　｜ (0,0)から(79,49)に線を引く（対角線）。｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜ッ｜VRCL ｜ F6 ｜仮想V-RAMをｸﾘｱし、仮想V-RAMｽｲｯﾁをONにする。 ｜ ｜　｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜ク｜VRMV　　　｜ F6 ｜仮想V-RANｽｲｯﾁがONなら、仮想V-RAMの内容をV-RAMに移し､｜ ｜　｜ ｜　　｜仮想V-RAMｽｲｯﾁをOFFにする。 ｜ ｜ス｜−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜VRCH　　　｜ F6 ｜仮想V-RAMｽｲｯﾁを切り換える。 ｜ ｜　｜ ｜　　｜仮想V-RAMｽｲｯﾁがONのときはSETG、RESG、LINEは ｜ ｜　｜　　　　　｜　　｜仮想V-RAM上で実行され、CRT画面には現われない。 ｜ ｜　｜　　　　　｜　　｜初期値はOFF。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜LIMIT ｜ F6 ｜ﾃﾞｰﾀ･ｽﾀｯｸ、ﾘﾀｰﾝ・ｽﾀｯｸのBOTTOMのｱﾄﾞﾚｽを変更する。 ｜ ｜　｜　　　　　｜　　｜2nd→ﾃﾞｰﾀ･ｽﾀｯｸのBOTTOMのｱﾄﾞﾚｽ、 ｜ ｜　｜　　　　　｜　　｜TOP→ﾘﾀｰﾝ･ｽﾀｯｸのBOTTOMのｱﾄﾞﾚｽ。 ｜ ｜　｜　　　　 ｜　　｜実行後、ﾃﾞｰﾀ･ｽﾀｯｸ、ﾘﾀｰﾝ･ｽﾀｯｸは空になり、 ｜ ｜　｜　　　　　｜　　｜ｲﾝﾀｰﾌﾟﾘﾀの初期状態に変える。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜SAVE　　　｜ F6 ｜SAVE a…aでSAVE以降のFORTHｵﾌﾞｼﾞｪｸﾄを ｜ ｜　｜　　　　　｜　　｜a…a(16文字以内)の名前を付けてｶｾｯﾄに保存する。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜LOAD ｜ F6 ｜SAVEによって保存されたｵﾌﾞｼﾞｪｸﾄを ｜ ｜　｜　　　　　｜　　｜ｶｾｯﾄからﾛｰﾄﾞする(ﾌｧｲﾙ名はﾁｪｯｸしない）。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜VERI ｜ F6 ｜ｶｾｯﾄのﾍﾞﾘﾌｧｲを行なう。OKときは何も出ない。 ｜ ｜　｜　　　　　｜　　｜ｴﾗｰのときはVERIFY ERRを表示。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜REG ｜ F2 ｜変数USRのAF、BC、DE、HLの受渡し用ｴﾘｱ ｜ ｜　｜　　　　　｜　　｜配置：REG→|F|A|C|B|A|E|D|L|H| ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜USR ｜ F6 ｜TOPの値の指すｱﾄﾞﾚｽヘｻﾌﾞﾙｰﾁﾝ･ｼﾞｬﾝﾌﾟする。 ｜ ｜　｜　　　　　｜　　｜ｼﾞｬﾝﾌﾟ時にREGのA、BC、DE、HLがﾚｼﾞｽﾀに送られる。 ｜ ｜　｜　　　　 ｜　　｜ﾘﾀｰﾝ時にはREGにAF、BC、DE、HLが返される。 ｜ ｜　｜　　　　　｜　　｜例）REG 1 + CONST AREG $30 AREG !B $12 USR ｜ ｜　｜　　　　　｜　　｜　 ：Aレジスタに$を入れてCALL $12を実行する｜ ｜　｜ ｜　　｜ （画面には0が表示される）。｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜APLY ｜ F6 ｜（2nd、TOP）を文字定数として、 ｜ ｜　｜ ｜　　｜その文字と一致するﾜｰﾄﾞを実行する ｜ ｜　｜　　　　　｜　　｜（ﾜｰﾄﾞがないときは何もしない）。 ｜ ｜　｜　　　　　｜　　｜例）3 4 "+" APLY：3 4 +と同じ ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜BASE ｜ F2 ｜数値入出力（入力時は$、#なしの数字、出力は。） ｜ ｜　｜ ｜　　｜における進法の基底、 ｜ ｜　｜　　　　　｜　　｜下位ﾊﾞｲﾄのみが有効。初期値は10。 ｜ ｜　｜　　　　　｜　　｜例）$10 BASE !：入出力を16進数で行なう。 ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜SP　　　　｜ F5 ｜ﾘﾀｰﾝ･ｽﾀｯｸのBOTTOMのｱﾄﾞﾚｽが記憶されているﾒﾓﾘのｱﾄﾞﾚｽ ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜DS ｜ F5 ｜ﾃﾞｰﾀ･ｽﾀｯｸのBOTTOMのｱﾄﾞﾚｽが記憶されているﾒﾓﾘのｱﾄﾞﾚｽ ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜PE ｜ F5 ｜辞書の追加ｴﾘｱのｱﾄﾞﾚｽが記憶されているﾒﾓﾘのｱﾄﾞﾚｽ ｜ ｜−＋−−−−−＋−−＋−−−−−−−−−−−−−−−−−−−−−−−−−−｜ ｜　｜TXT ｜ F6 ｜ﾃｷｽﾄ･ｴﾃﾞｨﾀにｲﾝﾀｰﾌﾟﾘﾀから制御を移す。 ｜ ・−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−・ ・−−−−−−−−−−−−−−−−−・ ｜■■■Ｍ−ＦＯＲＴＨ使用例■■■■｜ ・−−−−−−−−−−−−−−−−−・ まず、ＢＡＳＥの値は１０10とします。 (１)10 2 3 + * . ５０が表示される（PRINT10*(2+3);に相当する）。 　　　１０　　　　２　　　　３　　　　＋　　　　＊　　　　． 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜　　｜　｜　　｜　｜――｜　｜　　｜　｜　　｜　｜　　｜ 　　｜　　｜⇒｜ ｜⇒｜ ３ ｜⇒｜　　｜⇒｜　　｜⇒｜　　｜ 　　｜　　｜　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜　　｜　｜ ２ ｜　｜ ２ ｜　｜ ５ ｜　｜　　｜　｜　　｜ 　　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜　｜　　｜ 　　｜ 10 ｜　｜ 10 ｜　｜ 10 ｜　｜ 10 ｜　｜ 50 ｜　｜　　｜ 　　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜////｜　｜////｜　｜////｜　｜////｜　｜////｜　｜////｜ (２)3 4 5 OVER DUP * SWAP / + - . 　　−４が表示される(PRINT3-(4+4*4/5);). 　　　　３　　　　４　　　　５　　　OVER　　　 DUP　　　　＊ 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜――｜　｜　　｜ 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜ ４ ｜　｜　　｜ 　　｜　　｜　｜　　｜　｜　　｜　｜――｜　｜――｜　｜――｜ 　　｜　　｜　｜　　｜　｜　　｜　｜ ４ ｜　｜ ４ ｜　｜ 16 ｜ 　　｜　　｜　｜　　｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜　　｜⇒｜ ｜⇒｜ ５ ｜⇒｜ ５ ｜⇒｜ ５ ｜⇒｜ ５ ｜ 　　｜　　｜　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜　　｜　｜ ４ ｜　｜ ４ ｜　｜ ４ ｜　｜ ４ ｜　｜ ４ ｜ 　　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜ ３ ｜　｜ ３ ｜　｜ ３ ｜　｜ ３ ｜　｜ ３ ｜　｜ ３ ｜ 　　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜////｜　｜////｜　｜////｜　｜////｜　｜////｜　｜////｜ 　　ＳＷＡＰ　　　／　　　　＋　　　　―　　　　． 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜　　｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜――｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜ ５ ｜　｜　　｜　｜　　｜　｜　　｜　｜　　｜ 　　｜――｜　｜――｜　｜　　｜　｜　　｜　｜　　｜ 　　｜ 16 ｜⇒｜ ３ ｜⇒｜　　｜⇒｜　　｜⇒｜　　｜ 　　｜――｜　｜――｜　｜――｜　｜　　｜　｜　　｜ 　　｜ ４ ｜　｜ ４ ｜　｜ ７ ｜　｜　　｜　｜　　｜ 　　｜――｜　｜――｜　｜――｜　｜――｜　｜　　｜ 　　｜ ３ ｜　｜ ３ ｜　｜ ３ ｜　｜-４ ｜　｜　　｜ 　　｜――｜　｜――｜　｜――｜　｜――｜　｜――｜ 　　｜////｜　｜////｜　｜////｜　｜////｜　｜////｜ (３)4509 CONST BELL 　　ＢＥＬの値を4509とする。 (４)[ BEL-ON 0 BEL !B ] 　　キーを押したときベルを鳴らすようにするワードＢＥＬ−ＯＮの定義 　　（POKE4509,0）。 (５)[ BEL-OF 1 BEL !B] 　　キーを押したときベルを鳴らさない（POKE4509,1）。 (６)M[ BYE $C3 0 0 ]M 　　モニタヘ戻る（JP $0000）ワードＢＹＥの定義。 (７)[ BYE 0 USR ] 　　モニタヘ戻る（USR(0)）。 (８)127 16 BASE ! DUP . 2 BASE ! DUP LF . #A BASE ! . 　　は次のように表示される。 　　・――――――――――――――――――――・ 　　｜　表示:7F 　 　（１２７の16進表示）　　｜ 　　｜　　　 1111111　（１２７の２進表示）　　｜ 　　｜　　　 127　　　（１２７の10進表示）　　｜ 　　・――――――――――――――――――――・ (９)[ TAB $1171 !B ] 　　カーソルのＸ座標をTOPの値にする。 　　10 TAB（ほばPRINT TAB(10);と同じ） (10)[ VTAB $1172 !B] 　　カーソルのＹ座標をTOPの値にする 　　（カーソルのＸ座標そのままで行を変える）。 (11)[ CUR VTAB TAB ] 　　カーソルを（2ND：x、TOP：y）に移す。 　　　　　　　０　　〜　　　39　Ｘ座標 　　　　　０・―――――――・ 　　　　　　｜　　　　　　　｜ 　　Ｙ座標｜｜　　　　　　　｜　ＣＲＴ画面の座標 　　　　　　｜　　　　　　　｜ 　　　　　24｜　　　　　　　｜ 　　　　　　・―――――――・ (12)20 10 CUR"ABC" S. 　　：カーソルを（20,10）に移し、ＡＢＣをそこから表示する。 (13)REG 1 * CONST AREG 2 + CONST BC REG 4 + CONST DE REG 6 + CONST HL 　　ＵＳＲで使用するレジスタのアドレスを定義する。 (14)[ TEMPO AREG !B $41 USR ] 　　ＢＡＳＩＣのＴＥＭＰ０に相当。 　　例）4 TEMPO （TEMPO 4）。 (15)[ MUSIC DE ! $30 USR DROP ] 　　ＢＡＳＩＣのＭＵＳＩＣに相当。 　　ただし、文字ストリングの最後は■（C8）でなければならない。 　　例）"A#BC1D-A■" MUSIC（MUSIC"A#BC1D-A"）。 (16)[ FACT DUP IF DUP 1 - FACT * ELSE DROP 1 THEN ] 　　TOPをｎとするとき、 　　ｎ！＝ｎ×（ｎ−１）×…×２×１を計算する。 　　　　　　　　　／ｎ！＝ｎ×（ｎ−１）！（ｎ＞０） 　　ｎ！の定義は　＼０！＝１ 　　／ＦＡＣＴ（ｎ）＝ｎＸＦＡＣＴ（ｎ−１）（ｎ＞０）＼ 　　＼ＦＡＣＴ（０）＝１　　　　　　　　　　　　　　　／ (17)[ FACT 1 SWAP 1 + 1 DO I * LOOP ]: 　　ＦＡＣＴの別の定義（F=1:FORI=1TON:F=F*I:NEXTに相当）。 (18)[ WAIT BEGEIN GETKY END ] 　　キーが何か押されるまで待つ。 (19)[ WAITSP BEGIN GETKY $20 = END ] 　　[スペース]キーが押されるまで待つ。 (20)[ SIN 0 SWAP CORDR SWAP DROP ] 　　ｘ　ｚ　ＳＩＮ（x*SIN(z*π/360)）のように使う。 (21)[ COS 0 SWAP CORDR DROP ] 　　x z COS(x*COS(z*π/360))のように使う。 (22)0 0 79 49 LINE 　　擬似グラフィック座標（０，０）から（79，49）に線を引く。 　　ＢＡＳＩＣで（Ｘ１，Ｙ１）から（Ｘ２，Ｙ２）に 　　線を引くルーチンの一例（ＬＩＮＥはこれを機械語に直したものです）。 　　・――――――――――――――――――・ 　　｜10 DX=X1-X2:DY=Y1-Y2:DA=ABS(DX) ｜ 　　｜ :IF DA